home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / laston13.zip / CALR2TXT.BAS next >
BASIC Source File  |  1990-04-20  |  1KB  |  51 lines

  1. '*  CALR2TXT.BAS
  2. '*---------------------------------------------------------------------------
  3. '*
  4. '*
  5. '*
  6.  
  7. CallersName$ = "CALLERS"
  8. OPEN CallersName$ FOR RANDOM AS #1 LEN = 64
  9. OPEN "Callers.Txt" FOR OUTPUT AS #2
  10.  
  11. FIELD #1, 64 AS A$
  12.  
  13. NumRecs = LOF(1) / 64
  14. RecNum = NumRecs
  15. RecsPerBlock = NumRecs / 20
  16.  
  17. PRINT "CALR2TXT v0.10 04-20-90 by Tom Collins"
  18. PRINT
  19. PRINT "Processing "; CallersName$; ": "; STRING$(20, CHR$(176));
  20. LOCATE , 1
  21. PRINT "Processing "; CallersName$; ": ";
  22.  
  23. RecsProcessed = 0
  24.  
  25. WHILE RecNum > 0
  26.    GET #1, RecNum
  27.    Z$ = A$
  28.    IF INSTR(Z$, "on at") <> 0 THEN
  29.       RecsProcessed = RecsProcessed + 1
  30.       RecNum = RecNum - 1
  31.       B$ = Z$
  32.       GET #1, RecNum
  33.       Z$ = A$
  34.       J = INSTR(Z$, "{")
  35.       IF J = 0 OR J > 15 THEN
  36.          J = 15
  37.       END IF
  38.       PRINT #2, B$ + LEFT$(Z$, J - 1)
  39.       Z$ = MID$(Z$, J)
  40.    END IF
  41.    PRINT #2, Z$
  42.    RecNum = RecNum - 1
  43.    RecsProcessed = RecsProcessed + 1
  44.    IF RecsProcessed >= RecsPerBlock THEN
  45.       RecsProcessed = 0
  46.       PRINT CHR$(178);
  47.    END IF
  48. WEND
  49. CLOSE 1, 2
  50.  
  51.